home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / v7n11.arc / PAINT.BAS < prev    next >
BASIC Source File  |  1988-05-02  |  395b  |  11 lines
  1.    SCREEN 1,0
  2.    LINE (30,30)-(170,170), 3        'draw white diagonal line
  3.    LINE (50,50)-(150,150), 3, B     'draw white box
  4.    PAINT (90,100), 2, 3             'attempt to paint box magenta
  5.  
  6.  
  7.    SCREEN 1,0
  8.    LINE (30,30)-(170,170), 1        'draw cyan diagonal line
  9.    LINE (50,50)-(150,150), 3, B     'draw white box
  10.    PAINT (90,100), 2, 3             'paint entire box magenta
  11.